home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / stopLite.Dxr / 00017.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  346 b   |  18 lines
  1. on exitFrame
  2.   global color
  3.   set temp to random(30)
  4.   puppetSprite(10, 1)
  5.   if temp <= 10 then
  6.     set color to "red"
  7.   else
  8.     if temp <= 20 then
  9.       set color to "yellow"
  10.     else
  11.       if temp <= 30 then
  12.         set color to "green"
  13.       end if
  14.     end if
  15.   end if
  16.   set the castNum of sprite 10 to the number of cast (color & " on")
  17. end
  18.